Código fuente de 'Busca elemento en array 2.asp'
<html>
<head>
<title>Busca elemento en array 2 - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<p align="center"><b><font size="3">Busca elemento en array 2</font></b>
<body style="font-family: Arial; font-size: 11pt"></p>
<%
Function ARRAY_GetIndex(ByVal aSource, ByVal strValue, ByVal intStartIndex)
Dim intLB, intUB
Dim i
Dim intMatch
intMatch = -1
intLB = LBound(aSource)
intUB = UBound(aSource)
if intLb>=intStartIndex then
valor=intLb
else
valor=intStartIndex
end if
'response.write intUb & " - " & valor
For i = valor To intUB
If CStr(aSource(i)) = CStr(strValue) Then
intMatch = i
Exit For
End If
Next
ARRAY_GetIndex = intMatch
End Function
dim vector(3)
vector(0)=1
vector(1)=3
vector(2)=4
vector(3)=5
response.write "<b>Vector:</b> 1,3,4,5. </b><br> <b>Paso de valores: </b> vector, elemento a buscar=4, comienzo búsqueda=2<br>"
response.write "<br><b>Resultado: </b>Elemento (4) encontrado en la posición " & ARRAY_GetIndex(vector,4,1)
%>